home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / optivc32 / vlistd.h < prev    next >
C/C++ Source or Header  |  1999-03-06  |  7KB  |  184 lines
  1. /*  VLIstd.h
  2.  
  3.   vector management functions for data type "long".
  4.  
  5.   Copyright (c) 1996-1999 by Martin Sander
  6.   All Rights Reserved.
  7. */
  8.  
  9. #ifndef __VLISTD_H
  10. #define __VLISTD_H
  11.  
  12. #if !defined( __VECLIB_H )
  13.    #include <VecLib.h>
  14. #endif
  15.  
  16. #ifdef __cplusplus
  17.    extern "C" {
  18. #endif
  19.  
  20. /**********************  Generation  ************************************/
  21.  
  22. liVector  __vf  VLI_vector( ui size );
  23. liVector  __vf  VLI_vector0( ui size );
  24.  
  25. /***************  Addressing single vector elements ******************/
  26.  
  27. long _VFAR * VLI_Pelement( liVector X, ui n );
  28.       /* returns a pointer to the n'th element of X. For the memory model
  29.          HUGE, the pointer is normalized. */
  30. #define VLI_element( X, n )  (*VLI_Pelement( X, n ))
  31.  
  32. /*********************** Initialization  ******************************/
  33.  
  34. void  __vf  VLI_equ0( liVector X, ui size );
  35. void  __vf  VLI_equC( liVector X, ui size, long C );
  36. void  __vf  VLI_equV( liVector Y, liVector X, ui size );
  37. void  __vf  VLIo_ramp( liVector X, ui size, long Start, long Rise );
  38. #ifdef V_trapIntError
  39.     #define VLI_ramp   VLIo_ramp
  40. #else
  41.     void  __vf  VLI_ramp( liVector X, ui size, long Start, long Rise );
  42. #endif
  43. long  __vf  VLI_random( liVector X, ui size, long seed,
  44.                         long MinVal, long MaxVal );  /*  returns new seed */
  45.  
  46.  
  47. /************** Data-type interconversions  ***************************/
  48.  
  49. void  __vf  Vo_LItoUL( ulVector Y, liVector X, ui size ); /* signed-unsigned */
  50. void  __vf  Vo_ULtoLI( liVector Y, ulVector X, ui size );
  51.  
  52. void  __vf  V_BItoLI( liVector Y, biVector X, ui size );  /* up-conversion */
  53. void  __vf  V_SItoLI( liVector Y, siVector X, ui size );
  54. void  __vf  V_ItoLI(  liVector Y, iVector  X, ui size );
  55. void  __vf  V_LItoQI( qiVector Y, liVector X, ui size );
  56.  
  57. void  __vf  V_LItoBI(  biVector Y, liVector X, ui size ); /* down-conversion */
  58. void  __vf  Vo_LItoSI( siVector Y, liVector X, ui size );
  59. void  __vf  Vo_LItoI(  iVector  Y, liVector X, ui size );
  60. void  __vf  Vo_QItoLI( liVector Y, qiVector X, ui size );
  61. #ifdef V_trapIntError
  62.     #define V_LItoUL    Vo_LItoUL
  63.     #define V_ULtoLI    Vo_ULtoLI
  64.     #define V_LItoSI    Vo_LItoSI
  65.     #define V_LItoI     Vo_LItoI
  66.     #define V_QItoLI    Vo_QItoLI
  67. #else
  68.     void  __vf   V_LItoUL( ulVector Y, liVector X, ui size );
  69.     void  __vf   V_ULtoLI( liVector Y, ulVector X, ui size );
  70.     void  __vf   V_LItoSI( siVector Y, liVector X, ui size );
  71.     void  __vf   V_LItoI(  iVector  Y, liVector X, ui size );
  72.     void  __vf   V_QItoLI( liVector Y, qiVector X, ui size );
  73. #endif
  74.  
  75. void  __vf   V_LItoF(  fVector Y, liVector X, ui size );
  76. void  __vf   V_LItoD(  dVector Y, liVector X, ui size );
  77. #ifdef __BORLANDC__
  78.     void  __vf   V_LItoE(  eVector Y, liVector X, ui size );
  79. #else  /* no 80-bit IEEE reals with Visual C++ */
  80.     #define V_LItoE V_LItoD
  81. #endif
  82.  
  83.  
  84. /************** Index-oriented manipulations ***************************/
  85.  
  86. void  __vf  VLI_rev( liVector Y, liVector X, ui size );
  87. #ifdef V_HUGE
  88.     void  __vf  VLI_rotate( liVector Y, liVector X, ui size, long pos );
  89. #else
  90.     void  __vf  VLI_rotate( liVector Y, liVector X, ui size, int pos );
  91. #endif
  92.  
  93. void  __vf  VLI_delete( liVector X, ui size, ui pos );
  94. void  __vf  VLI_insert( liVector X, ui size, ui pos, long C );
  95.  
  96. void  __vf  VLI_sort( liVector Y, liVector X, ui size, int dir );
  97. void  __vf  VLI_sortind( uiVector Ind, liVector X, ui size, int dir );
  98.  
  99. void  __vf  VLI_subvector( liVector Y, ui sizey, liVector X, int samp );
  100. void  __vf  VLI_subvector_equC( liVector Y, ui subsz, unsigned samp, long C );
  101. void  __vf  VLI_subvector_equV( liVector Y, ui subsz, unsigned samp,
  102.                                 liVector X );
  103.  
  104. void  __vf  VLI_indpick( liVector Y, uiVector Ind, ui sizey, liVector X );
  105. void  __vf  VLI_indput(  liVector Y, liVector X, uiVector Ind, ui sizex );
  106.  
  107. ui    __vf  VLI_searchC( liVector XTab, ui size, long C, int mode );
  108. void  __vf  VLI_searchV( uiVector Ind, liVector X, ui sizex,
  109.                          liVector Tab, ui sizetab, int mode );
  110.  
  111. /********************   One-dimensional Vector Operations  ********/
  112.  
  113. long  __vf  VLIo_sum( liVector X, ui size );
  114. void  __vf  VLIo_runsum( liVector Y, liVector X, ui size );
  115. #ifdef V_trapIntError
  116.     #define VLI_sum       VLIo_sum
  117.     #define VLI_runsum    VLIo_runsum
  118. #else
  119.     long  __vf  VLI_sum( liVector X, ui size );
  120.     void  __vf  VLI_runsum( liVector Y, liVector X, ui size );
  121. #endif
  122. long   __vf  VLI_max( liVector X, ui size );
  123. long   __vf  VLI_min( liVector X, ui size );
  124. long   __vf  VLI_maxind( ui _VFAR *Ind, liVector X, ui size );
  125. long   __vf  VLI_minind( ui _VFAR *Ind, liVector X, ui size );
  126. void   __vf  VLI_runmax( liVector Y, liVector X, ui size );
  127. void   __vf  VLI_runmin( liVector Y, liVector X, ui size );
  128. double __vf  VLI_fsum( liVector X, ui size );
  129. double __vf  VLI_mean( liVector X, ui size );
  130.  
  131. int    __vf  VLI_iselementC( liVector Tab, ui size, long C );
  132. ui     __vf  VLI_iselementV( liVector Y, liVector X, ui sizex,
  133.                              liVector Tab, ui sizetab );
  134.  
  135.  
  136. /************************ Input / Output ******************************/
  137.  
  138. void  __vf   V_ifprint(  FILE _VFAR *stream, void _VFAR *X, ui size,
  139.                   unsigned nperline, unsigned linewidth, unsigned vers );
  140. #define VLI_fprint( st, x, sz, npl, lw ) \
  141.              V_ifprint(  st, (void _VFAR *)(x), sz, npl, lw, 6 )
  142.  
  143. #if !defined _Windows || defined __FLAT__ || defined _WIN32
  144.     void __vf  V_icprint(  void _VFAR *X, ui size, unsigned nperline, unsigned vers );
  145.     #define VLI_cprint( x, sz, npl ) V_icprint( (void _VFAR *) (x), sz, npl, 6 )
  146. #endif
  147. #define VLI_print( x, sz, npl ) \
  148.              V_ifprint(  stdout, (void _VFAR *)(x), sz, npl, 80, 6 )
  149.  
  150. void  __vf   V_setRadix( int radix );
  151.            /* radix to be assumed by all whole-number read functions V??_read */
  152. void  __vf   VLI_read( liVector X, ui size, FILE _VFAR *stream );
  153. void  __vf   VLI_write( FILE _VFAR *stream, liVector X, ui size );
  154. void  __vf   VLI_nread( unsigned n, ui size, FILE _VFAR *stream, ... );
  155. void  __vf   VLI_nwrite( FILE _VFAR *stream, unsigned n, ui size, ... );
  156. void  __vf   VLI_setWriteFormat( char _VFAR *FormatString );
  157.                                             /* for VLI_write and VLI_nwrite */
  158. void  __vf   VLI_setWriteSeparate( char _VFAR *SepString ); /* for VLI_write */
  159. void  __vf   VLI_setNWriteSeparate( char _VFAR *SepString ); /* for VLI_nwrite */
  160. #ifdef V_HUGE
  161.     void  __vf   VLI_store(  FILE _VFAR *stream, liVector X, ui size );
  162.     void  __vf   VLI_recall( liVector X, ui size, FILE _VFAR *stream );
  163. #else
  164.     #ifdef __cplusplus
  165.          void  inline VLI_store( FILE _VFAR *stream, liVector X, ui size )
  166.          {    fwrite( X, sizeof(long), size, stream ); 
  167.          }
  168.          void  inline VLI_recall( liVector X, ui size, FILE _VFAR *stream )
  169.          {    fread(  X, sizeof(long), size, stream );
  170.          }
  171.     #else
  172.         #define VLI_store( str, X, sz )  \
  173.                      fwrite( X, sizeof(long), sz, str )
  174.         #define VLI_recall( X, sz, str ) \
  175.                      fread(  X, sizeof(long), sz, str )
  176.     #endif
  177. #endif      /* VLI_store, VLI_recall in binary format */
  178.  
  179. #ifdef __cplusplus
  180. }
  181. #endif
  182.  
  183. #endif   /*  __VLISTD_H    */
  184.